home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
educate
/
wcstrv11.zip
/
_SETUP.1
/
WCSServer.exe
/
0
/
RCDATA
/
TLMDTEETHEDITORDLG
/
TLMDTEETHEDITORDLG.txt
Wrap
Text File
|
1997-05-25
|
7KB
|
300 lines
object LMDTeethEditorDlg: TLMDTeethEditorDlg
Left = 218
Top = 95
ActiveControl = OK
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Teeth-Editor'
ClientHeight = 343
ClientWidth = 447
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
ShowHint = True
OnActivate = FormActivate
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Bevel1: TBevel
Left = 6
Top = 219
Width = 438
Height = 8
Shape = bsBottomLine
end
object Bevel2: TBevel
Left = 4
Top = 232
Width = 347
Height = 107
end
object test: TLMDTeethShape
Left = 8
Top = 8
Width = 234
Height = 207
Hint = 'Displays the current settings.'
Caption.Font.Color = clWindowText
Caption.Font.Height = -13
Caption.Font.Name = 'System'
Caption.Font.Style = []
Teeth.Height = 10
end
object Label1: TLabel
Left = 16
Top = 249
Width = 45
Height = 13
Caption = 'Direction:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label4: TLabel
Left = 16
Top = 278
Width = 31
Height = 13
Caption = 'Count:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label2: TLabel
Left = 152
Top = 279
Width = 31
Height = 13
Caption = 'Width:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label3: TLabel
Left = 254
Top = 278
Width = 34
Height = 13
Caption = 'Height:'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label5: TLabel
Left = 96
Top = 304
Width = 5
Height = 16
Caption = '*'
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 212
Top = 304
Width = 5
Height = 16
Caption = '*'
Font.Color = clBlue
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 259
Top = 13
Width = 5
Height = 16
Caption = '*'
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 273
Top = 13
Width = 150
Height = 59
Caption =
'SetPerCount decides either the "Count"-value or the "Width/Heigh' +
't"-values will be used to draw the shape.'
WordWrap = True
end
object Label9: TLabel
Left = 259
Top = 78
Width = 5
Height = 16
Caption = '*'
Font.Color = clBlue
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 273
Top = 78
Width = 138
Height = 26
Caption = 'Offset decides whether the outer edges are drawn sharp.'
WordWrap = True
end
object OK: TBitBtn
Left = 358
Top = 232
Width = 82
Height = 27
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
Kind = bkOK
Margin = 2
Spacing = -1
end
object Cancel: TBitBtn
Left = 358
Top = 264
Width = 82
Height = 27
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
Kind = bkCancel
Margin = 2
Spacing = -1
end
object reset: TBitBtn
Left = 358
Top = 306
Width = 82
Height = 27
Cancel = True
Caption = 'Reset'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = resetClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
3333333777333777FF33339993707399933333773337F3777FF3399933000339
9933377333777F3377F3399333707333993337733337333337FF993333333333
399377F33333F333377F993333303333399377F33337FF333373993333707333
333377F333777F333333993333101333333377F333777F3FFFFF993333000399
999377FF33777F77777F3993330003399993373FF3777F37777F399933000333
99933773FF777F3F777F339993707399999333773F373F77777F333999999999
3393333777333777337333333999993333333333377777333333}
Margin = 2
NumGlyphs = 2
Spacing = -1
end
object cmb: TComboBox
Left = 75
Top = 242
Width = 167
Height = 21
Hint = 'Specifies the directions the'#13#10'teeth point to.'
Style = csDropDownList
ItemHeight = 13
Items.Strings = (
'tdRight'
'tdDown'
'tdLeft'
'tdUp')
TabOrder = 3
OnChange = cmbChange
end
object spinc: TSpinEdit
Left = 75
Top = 274
Width = 46
Height = 22
Hint = 'Specifies the count of teeth.'
MaxLength = 2
MaxValue = 50
MinValue = 0
TabOrder = 4
Value = 0
OnChange = spincChange
end
object spinW: TSpinEdit
Left = 194
Top = 275
Width = 47
Height = 22
Hint = 'Specifies the width of the teeth.'
MaxLength = 3
MaxValue = 250
MinValue = 0
TabOrder = 5
Value = 0
OnChange = spincChange
end
object spinh: TSpinEdit
Left = 295
Top = 274
Width = 47
Height = 22
Hint = 'Specifies the height of the teeth.'
MaxLength = 3
MaxValue = 250
MinValue = 0
TabOrder = 6
Value = 0
OnChange = spincChange
end
object chkc: TCheckBox
Left = 18
Top = 310
Width = 77
Height = 17
Caption = 'SetPerCount'
State = cbChecked
TabOrder = 7
OnClick = chkcClick
end
object chko: TCheckBox
Left = 163
Top = 310
Width = 49
Height = 17
Caption = 'Offset'
State = cbChecked
TabOrder = 8
OnClick = chkcClick
end
end